home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 180 / 180.d81 / b.namystics 1999 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  100 lines
  1. 8 poke53371,0
  2. 10 poke56,56:poke55,0:clr
  3. 20 dv=peek(186):ifdv<8thendv=8
  4. 30 poke53281,0:poke53280,0:print"[129]"
  5. 32 sys57812"na.scripter",dv,0:poke780,0:poke781,0:poke782,196:sys65493
  6. 34 sys57812"na.font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 36 sys57812"na.rle",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 60 poke53280,0:poke53272,31
  9. 62 sc=49152+4*256:syssc,224,204,56
  10. 64 sp$="                                        "
  11. 65 tp$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  12. 66 bt$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  13. 68 cr$=chr$(13):tb$=left$(sp$,10)
  14. 70 goto180
  15. 80 poke214,y:print
  16. 82 printtab(x)"[176]"left$(tp$,xx)"[174]"
  17. 84 printtab(x)"[170]["left$(sp$,xx-2)"][180]"
  18. 86 forii=2toyy:printtab(x)"[170]"left$(sp$,xx)"[180]":next
  19. 88 printtab(x+1)"[145]<"tab(x+xx)">"
  20. 90 printtab(x)"[173]"left$(bt$,xx)"[189]"
  21. 92 return
  22. 100 poke214,19:print
  23. 102 fori=0to1:printtab(4)left$(sp$,33):next
  24. 104 return
  25. 180 print"[147]":x=2:y=0:xx=35:yy=21:print"[155]";:gosub80
  26. 190 poke214,2:print
  27. 192 printtab(11)"[158]the mighty loadstar
  28. 193 [153][163]9)"foror^orortan^or^or^^ orortan^or=^=ortan^
  29. 194 printtab(9)"[221][221][221][171][192][179][221][173][189][221][173][178][189][173][192][174] [221] [221][221]
  30. 195 [153][163]9)"exp/expexp /exp  / > /tanexp > >/tanexp
  31. 196 printtab(14)"[158]contest 1999"
  32. 200 printtab(12)"1 [154]contest #1
  33. 202 [153][163]12)"2 contcontest #2
  34. 204 printtab(12)"3 [154]quit to loadstar
  35. 208 [151]198,0
  36. 210 [161]a$:[139]a$[178]""[167]210
  37. 212 [139]a$[178]"3"[167]40000
  38. 214 [139]a$[179]"1"[176]a$[177]"2"[167]210
  39. 215 k$[178]a$
  40. 216 [158]49152,"rle.namys "[170]k$,dv,64[172]256
  41. 218 [151]214,10:[153]:[129]i[178]0[164]7:[153][163]3)"                              ":[130]
  42. 220 [151]214,8:[153]:[129]i[178]0[164]9
  43. 222 [153][163]12)""[199](65[170]i)"  contsee namystic "[199](65[170]i)
  44. 224 [130]
  45. 230 [151]214,19:[153]:[153][163]8)"1cont  print contest entry blank
  46. 240 printtab(8)"2[154]  back to main menu
  47. 248 [151]198,0
  48. 250 [161]a$:[139]a$[178]""[167]250
  49. 260 [139]a$[178]"2"[167]180
  50. 270 [139]a$[178]"1"[167]400
  51. 280 [139]a$[179]"a"[176]a$[177]"j"[167]248
  52. 290 n[178][198](a$)[171]65
  53. 310 [151]251,64[170]6[172]n:[151]252,224:[151]253,204:[158]51456:[158]51459
  54. 320 [158]sc[170]6,16,21,"stopopennamystic "[170][199](65[170]n)
  55. 330 [158]sc[170]6,2,2,"stopforloadstar'snamysticscont"
  56. 380 [161]a$:[139]a$[178]""[167]380
  57. 390 [158]51459
  58. 392 [137]248
  59. 400 [141]100
  60. 420 [153][163]4)"ononcontget printer ready and press space"
  61. 422 [153][163]4)"contor press _cont to return to the menu."
  62. 430 [161]a$:[139]a$[178]""[167]430
  63. 432 [139]a$[178]"_"[167][141]100:[137]230
  64. 434 [139]a$[179][177]" "[167]430
  65. 440 [159]4,4,7:[160]4
  66. 442 [139]st[178][171]128[167]400
  67. 450 [159]4,4,7
  68. 460 [152]4,tb$tb$"(NULL)left$val (NULL)right$chr$left$(NULL)(NULL) (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)atn(NULL)(NULL)(NULL)(NULL)right$len(NULL) len(NULL)(NULL)(NULL)val(NULL)(NULL) 1999"cr$
  69. 480 [152]4,tb$"ascill in your address below then identify each of the 20
  70. 482 print#4,tb$"countries, states or provinces. [211]end your ballot to:"cr$
  71. 488 print#4,tb$tb$"   [204][207][193][196][211][212][193][210] [206][193][205][217][211][212][201][195][211] [195][207][206][212][197][211][212] 1999
  72. 490 [152]4,tb$tb$"   606 lenommon (NULL)treet
  73. 492 print#4,tb$tb$"   [211]hreveport [204][193] 71101"cr$
  74. 496 print#4,tb$"[196]eadline is [202]uly 31, 1999."cr$
  75. 500 print#4,tb$"[206][193][205][197]:....................................................."cr$
  76. 510 print#4,tb$"[193][196][196][210][197][211][211]:.................................................."cr$
  77. 520 print#4,tb$"[211][212][193][212][197]:...................[208][207][211][212][193][204] [195][207][196][197]......................"cr$
  78. 530 print#4,tb$tb$,"   [195] [207] [206] [212] [197] [211] [212]   # 1"cr$
  79. 540 fori=0to9
  80. 542 print#4,tb$tb$"[206][193][205][217][211][212][201][195] "chr$(i+193)"............................."cr$
  81. 544 next
  82. 548 print#4,tb$tb$,"   [195] [207] [206] [212] [197] [211] [212]   # 2"cr$
  83. 550 fori=0to9
  84. 552 print#4,tb$tb$"[206][193][205][217][211][212][201][195] "chr$(i+193)"............................."cr$
  85. 554 next
  86. 562 close4:poke186,dv
  87. 570 gosub100:goto230
  88. 999 goto999
  89. 10000 d=peek(186):n$="0:b.namystics 1999":open15,d,15,"s"+n$:close15:saven$,d:end
  90. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  91. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  92. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  93. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  94. 40040 close2:open2,i,2:close2:ifstthen40060
  95. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  96. 40060 next:return
  97. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  98. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  99. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  100.